| |
<%while not ds.eof%>
已开通的虚拟主机:
<%
Set dsph = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Host where username='"&ds("username")&"'"
dsph.Open Sql,conn,1,1
if dsph.Eof then%>
没有已开通的虚拟主机.
<%else%>
| 产品类型 |
域 名 |
FTP用户名 |
IP 地址 |
开通日期 |
到期日期 |
状态 |
操作 |
ICP |
<%while not dsph.Eof%>
<%
Hosttype=dsph("Hosttype")
Set ori_host_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_HostProductlist where Hosttype='"&dsph("Hosttype")&"'"
ori_host_name.Open Sql,conn,1,1
if not ori_host_name.eof then
Set newname_host = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_HostProductlist_AGN where agent1='"&dsph("agent1")&"' and id='"&ori_host_name("id")&"'"
newname_host.Open Sql,conn,1,1
if not newname_host.eof then
Hosttype=newname_host("Hosttype")
end if
end if
hostname=dsph("hostname")
hostname=replace(hostname, ":80:","")
hostname_arry=Split(hostname, ",")
Set dsserver = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'"
dsserver.Open Sql,conn,1,1
ostype=dsserver("ostype")
useisp=dsserver("useisp")
isuseCDN=dsserver("isuseCDN")
%>
| <%=Hosttype%> |
<%for idname=0 to ubound(hostname_arry)%>
<%=hostname_arry(idname)%>
<%next%> |
<%=dsph("ftpname")%> |
<%if isuseCDN=true then%>请用面板中的别名解析<%else%><%if dsserver("ostype")="linux" then%>
<%if dsph("status")="暂停" or dsph("status")="停止" then%>暂停或停止状态不能登陆DA后台<%else%>&go=e" target="_blank">进入DA接口后台
<%end if%>
<%end if%><%
Set dsX = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Host_IP where HostID="&dsph("id")
dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
<%
'服务器
%>
<%=dsserver("ip")%>
<%dsserver.close%>
<%else
while not dsX.eof
%>
<%=dsX("IP")%>
<%
dsX.movenext
wend
end if%><%end if%> |
<%=formatdatetime(dsph("starttime"),1)%> |
<%=formatdatetime(dsph("endtime"),1)%> |
<%if dsph("endtime")>NOW then%>
<%if dsph("istest")="y" then%>
试用<%else%>
<%=dsph("status")%>
<%end if%>
<%else%>
过期
<%if dsph("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
&id=<%=dsph("id")%>">管理 |
&go=b"><%if dsph("beianstatus")="备案成功" then%>成功<%else%>备案<%end if%> |
<%
dsph.movenext
wend%>
<%
dsph.close
set dsph=nothing
end if
%>
已开通的邮箱产品:
<%
Set dsphemail = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Email where username='"&ds ("username")&"'"
dsphemail.Open Sql,conn,1,1
if dsphemail.Eof then%>
没有已开通的邮箱产品.
<%else%>
| 产品类型 |
绑定域名 |
所属父产品 |
IP 地址 |
开通日期 |
到期日期 |
状态 |
操作 |
<%while not dsphemail.Eof%>
<%
Emailtype=dsphemail("Emailtype")
Set ori_email_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_EmailProductlist where Emailtype='"&dsphemail("Emailtype")&"'"
ori_email_name.Open Sql,conn,1,1
if not ori_email_name.eof then
Set newname_email = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_EmailProductlist_AGN where agent1='"&dsphemail("agent1")&"' and id='"&ori_email_name("id")&"'"
newname_email.Open Sql,conn,1,1
if not newname_email.eof then
Emailtype=newname_email("Emailtype")
end if
end if
%>
| <%=Emailtype%> |
<%
Set dspdallemail = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_ALLEmail where username='"&dsphemail ("username")&"' and PdEID='"&dsphemail ("id")&"' order by emailname"
dspdallemail.Open Sql,conn,1,1
if not dspdallemail.eof then
if not isnull(dspdallemail("emailname")) then
%>
<%= replace(dspdallemail("emailname"),"webmaster@","")%>
<%
end if
end if%> |
<%
Set dsph = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&dsphemail("byhost")&"' and username='"&dsphemail("username")&"'"
dsph.Open Sql,conn,1,1
if not dsph.Eof then
nohost=false%>
">虚拟主机(<%=dsph("ftpname")%>)
<%else
nohost=true
end if%>
<%
Set dsdm = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&dsphemail ("username")&"' and id ='"&dsphemail("bydomain")&"'"
dsdm.Open Sql,conn,1,1
if not dsdm.Eof then
nodomain=false%>
">域名(<%=dsdm("domain")%>)
<%else
nodomain=true
end if
if nohost and nodomain then%>
无
<%end if%>
|
<%
Set dsserver = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Serveremaillist where id='"&dsphemail ("ServerlistID")&"'"
dsserver.Open Sql,conn,1,1
%>
<%=dsserver("ip")%>
<%dsserver.close%> |
<%=formatdatetime(dsphemail("starttime"),1)%> |
<%=formatdatetime(dsphemail("endtime"),1)%> |
<%if dsphemail("endtime")>NOW then%>
<%if dsphemail("istest")="y" then%>
试用
<%else%>
<%=dsphemail("status")%>
<%end if%>
<%else%>
过期
<%if dsphemail("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
">管理 |
<%
dsphemail.movenext
wend%>
<%
dsphemail.close
set dsphemail=nothing
end if
%>
已开通的数据库产品:
<%
Set dsphSql = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Sql where username='"&ds ("username")&"'"
dsphSql.Open Sql,conn,1,1
if dsphSql.Eof then%>
没有已开通的数据库产品.
<%else%>
| 产品类型 |
数据库名 |
所属父产品 |
IP 地址 |
开通日期 |
到期日期 |
状态 |
操作 |
<%while not dsphSql.Eof%>
<%
Sqltype=dsphSql("Sqltype")
Set ori_Sql_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_SqlProductlist where Sqltype='"&dsphSql("Sqltype")&"'"
ori_Sql_name.Open Sql,conn,1,1
if not ori_Sql_name.eof then
Set newname_Sql = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_SqlProductlist_AGN where agent1='"&dsphSql("agent1")&"' and id='"&ori_Sql_name("id")&"'"
newname_Sql.Open Sql,conn,1,1
if not newname_Sql.eof then
Sqltype=newname_Sql("Sqltype")
end if
end if
%>
|
<%=Sqltype%>
|
<%=dsphSql("sqlname")%> |
<%
Set dsph = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&dsphSql("byhost")&"' and username='"&dsphSql("username")&"'"
dsph.Open Sql,conn,1,1
if not dsph.Eof then
nohost=false%>
&go=a">虚拟主机(<%=dsph("ftpname")%>)
<%else%>
无
<%end if%>
|
<%
Set dsserver = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Serversqllist where id='"&dsphSql ("ServerlistID")&"'"
dsserver.Open Sql,conn,1,1
%><%=dsserver("ip")%><%dsserver.close%> |
<%=formatdatetime(dsphSql("starttime"),1)%> |
<%=formatdatetime(dsphSql("endtime"),1)%> |
<%if dsphSql("endtime")>NOW then%>
<%if dsphSql("istest")="y" then%>
试用<%else%>
<%=dsphSql("status")%>
<%end if%>
<%else%>
过期
<%if dsphSql("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
">管理 |
<%
dsphSql.movenext
wend%>
<%
dsphSql.close
set dsphSql=nothing
end if
%>
已开通的域名产品:
<%
Set dsdm = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&ds ("username")&"'"
dsdm.Open Sql,conn,1,1
if dsdm.Eof then%>
没有已开通的域名产品.
<%else%>
<%
dsdm.close
set dsdm=nothing
end if
%>
已开通的IDC产品:
<%
Set dsphIDC = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_IDC where username='"&ds ("username")&"'"
dsphIDC.Open Sql,conn,1,1
if dsphIDC.Eof then%>
没有已开通的IDC产品.
<%else%>
| 产品类型 |
开通日期 |
到期日期 |
状态 |
操作 |
<%while not dsphIDC.Eof%>
<%
IDCtype=dsphIDC("IDCtype")
Set ori_IDC_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_IDCProductlist where IDCtype='"&dsphIDC("IDCtype")&"'"
ori_IDC_name.Open Sql,conn,1,1
if not ori_IDC_name.eof then
Set newname_IDC = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_IDCProductlist_AGN where agent1='"&dsphIDC("agent1")&"' and id='"&ori_IDC_name("id")&"'"
newname_IDC.Open Sql,conn,1,1
if not newname_IDC.eof then
IDCtype=newname_IDC("IDCtype")
end if
end if
%>
| <%=IDCtype%> |
<%=formatdatetime(dsphIDC("starttime"),1)%> |
<%=formatdatetime(dsphIDC("endtime"),1)%> |
<%if dsphIDC("endtime")>NOW then%>
<%if dsphIDC("istest")="y" then%>
试用
<%else%>
<%=dsphIDC("status")%>
<%end if%>
<%else%>
过期
<%if dsphIDC("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
">管理 |
<%
dsphIDC.movenext
wend%>
<%
dsphIDC.close
set dsphIDC=nothing
end if
%>
已开通的云服务器产品:
<%
Set dsphVPS = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_VPS where username='"&ds ("username")&"'"
dsphVPS.Open Sql,conn,1,1
if dsphVPS.Eof then%>
没有已开通的云服务器产品.
<%else%>
| 产品类型 |
云服务器名 |
已分配IP |
开通日期 |
到期日期 |
状态 |
操作 |
<%while not dsphVPS.Eof%>
<%
vpstype=dsphVPS("vpstype")
Set ori_VPS_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_VPSProductlist where vpstype='"&dsphVPS("vpstype")&"'"
ori_VPS_name.Open Sql,conn,1,1
if not ori_VPS_name.eof then
Set newname_VPS = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_VPSProductlist_AGN where agent1='"&dsphVPS("agent1")&"' and id='"&ori_VPS_name("id")&"'"
newname_VPS.Open Sql,conn,1,1
if not newname_VPS.eof then
vpstype=newname_VPS("vpstype")
end if
end if
%>
|
<%=vpstype%>
|
<%=dsphVPS("vpsname")%> |
<%
if dsphVPS("isagentpd")=true then%>
<%=dsphVPS("AgnUpIP")%>
<%
else
Set dsX = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where VPSID="&dsphVPS("id")
dsX.Open Sql,conn,1,1
while not dsX.eof
%>
<%=dsX("IP")%>
<%
if dsX("portstart")>0 then
if isONEip=true then
Set dsPORTserver = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_ServerPORTlist where id='"&useportserver&"'"
dsPORTserver.Open Sql,conn,1,1%>
<%=dsPORTserver("IP")%>(公网)
<%end if
end if
dsX.movenext
wend
end if
%> |
<%=formatdatetime(dsphVPS("starttime"),1)%> |
<%=formatdatetime(dsphVPS("endtime"),1)%> |
<%if dsphVPS("endtime")>NOW then%>
<%if dsphVPS("istest")="y" then%>
试用<%else%>
<%=dsphVPS("status")%>
<%end if%>
<%else%>
过期
<%if dsphVPS("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
">管理 |
<%
dsphVPS.movenext
wend%>
<%
dsphVPS.close
set dsphVPS=nothing
end if
%>
已开通的CDN产品:
<%
Set dsphCDN = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_CDN where username='"&ds ("username")&"'"
dsphCDN.Open Sql,conn,1,1
if dsphCDN.Eof then%>
没有已开通的CDN产品.
<%else%>
| 产品类型 |
CDN名 |
域名 |
开通日期 |
到期日期 |
状态 |
操作 |
<%while not dsphCDN.Eof%>
<%
CDNtype=dsphCDN("CDNtype")
Set ori_CDN_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_CDNProductlist where CDNtype='"&dsphCDN("CDNtype")&"'"
ori_CDN_name.Open Sql,conn,1,1
if not ori_CDN_name.eof then
Set newname_CDN = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_CDNProductlist_AGN where agent1='"&dsphCDN("agent1")&"' and id='"&ori_CDN_name("id")&"'"
newname_CDN.Open Sql,conn,1,1
if not newname_CDN.eof then
CDNtype=newname_CDN("CDNtype")
end if
end if
%>
| <%=CDNtype%> |
<%=dsphCDN("ftpname")%> |
<%
hostname=dsphCDN("hostname")
If IsNull(dsphCDN("hostname")) Then hostname=""
'hostname=replace(hostname, ":80:","")
hostname_arry=Split(hostname, ",")
set ComX=server.CreateObject("freehost_com_7i24.FreehostM")
for idname=0 to ubound(hostname_arry)
domary=Split(hostname_arry(idname),":")
domain=domary(2)
%>
<%if ComX.actoidc_7i24_com(cstr(domain))<>domain then%>
<%=ComX.actoidc_7i24_com(cstr(domain))%> (<%=domain%>)
<%else%>
<%=domain%>
<%end if%>
(端口:<%=domary(1)%> IP:<%=domary(0)%>)
<%next%>
|
<%=formatdatetime(dsphCDN("starttime"),1)%> |
<%=formatdatetime(dsphCDN("endtime"),1)%> |
<%if dsphCDN("endtime")>NOW then%>
<%if dsphCDN("istest")="y" then%>
试用
<%else%>
<%=dsphCDN("status")%>
<%end if%>
<%else%>
过期
<%if dsphCDN("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
">管理"> |
<%
dsphCDN.movenext
wend%>
<%
dsphCDN.close
set dsphCDN=nothing
end if
%>
已开通的其他类产品:
<%
Set dsphOther = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Other where username='"&ds ("username")&"'"
dsphOther.Open Sql,conn,1,1
if dsphOther.Eof then%>
没有已开通的其他类产品.
<%else%>
| 产品类型 |
开通日期 |
到期日期 |
状态 |
操作 |
<%while not dsphOther.Eof%>
<%
Othertype=dsphOther("Othertype")
Set ori_Other_name = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_OtherProductlist where Othertype='"&dsphOther("Othertype")&"'"
ori_Other_name.Open Sql,conn,1,1
if not ori_Other_name.eof then
Set newname_Other = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_OtherProductlist_AGN where agent1='"&dsphOther("agent1")&"' and id='"&ori_Other_name("id")&"'"
newname_Other.Open Sql,conn,1,1
if not newname_Other.eof then
Othertype=newname_Other("Othertype")
end if
end if
%>
| <%=Othertype%> |
<%=formatdatetime(dsphOther("starttime"),1)%> |
<%=formatdatetime(dsphOther("endtime"),1)%> |
<%if dsphOther("endtime")>NOW then%>
<%if dsphOther("istest")="y" then%>
试用
<%else%>
<%=dsphOther("status")%>
<%end if%>
<%else%>
过期
<%if dsphOther("status")="暂停" then%>
暂停
<%end if%>
<%end if%> |
管理 |
<%
dsphOther.movenext
wend%>
<%
dsphOther.close
set dsphOther=nothing
end if
%>
<%if Application("hpsystem")=true then%>
已开通的个人主页:
<%
Set dsphHomepage = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_Product_Homepage where username='"&ds ("username")&"'"
dsphHomepage.Open Sql,conn,1,1
if dsphHomepage.Eof then%>
没有已开通的个人主页.
<%else%>
<%while not dsphHomepage.Eof%>
<%
dsphHomepage.movenext
wend
dsphHomepage.close
set dsphHomepage=nothing
end if
%>
<%end if%>
财务记录：
<%
Set dsmoney = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_moneylog where isdel is null and (username='"&ds("username")&"' or opusername='"&ds("username")&"' or agent1='"&ds("username")&"' or agent2='"&ds("username")&"') order by id desc"
dsmoney.PageSize = 25
dsmoney.Open Sql,conn,1,1
if dsmoney.Eof then
%>
数据库中不存在款项操作记录。
<%
else
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dsmoney.RecordCount <> 0 Then dsmoney.AbsolutePage = CLng(pn)
if clng(pn)<=10 then
begini=1
if dsmoney.PageCount<=10 then
endini=dsmoney.PageCount
else
endini=10
end if
end if
%>
<%if clng(pn)<=10 then%>最新 <%for i=begini to endini
if clng(pn)=i then%> [<%=i%>]<%else%> ?<%=ask(0)%>&pn=<%=i%>">[<%=i%>]<%end if%> <%next%>
<%else%> ?<%=ask(0)%>&pn=1">最新[1]--[10] 现在是第 [<%=pn%>]页
共<%=dsmoney.PageCount%>页 <%end if%><%If Clng(pn)>1 Then%> ?<%=ask(0)%>&pn=<%=pn-1%>">上一页
<%End If%>|<%If Clng(pn) ?<%=ask(0)%>&pn=<%=pn+1%>">下一页
<%End If%>
<%end if
dsmoney.close
set dsmoney=nothing%>
<%
ds.movenext
wend
ds.Close
set ds=nothing
conn.Close
set conn=nothing
%>
|
|
